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Con il presente fascicolo prosegue la raccolta 
dei migliori programmi dell'’MSX pubblicati su 
libri e riviste Jackson. 

In ogni numero un supergame originale ingle- 
se descritto nei minimi particolari ed in più 
una miriade di altri programmi scelti tra uti- 
lity, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un corret- 
to utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta allega- 
to alla confezione, ma anche personalizzarli 
servendovi dei listati e della descrizione pub- 
blicata all’interno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vostra 
raccolta di programmi. 
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ZAXXON 


Il supergame di questo numero di 
J.S. compilation è ZAXXON, il 
famoso videogioco da bar, che 

sicuramente avete avuto occasione 


di provare, ora anche in versione MSX. 
Il gioco possiede notevoli qualità e 
senza dubbio vi entusiasmerà 
moltissimo. Leggete attentamente 
quanto segue e... buon divertimento! 


ABI <a 


[cis 


FUEL 


- Spiegazione 
del gioco 


Vi trovate a bordo di un ve- 
loce aereoplano, un caccia, e 
avete ricevuto l'ordine del 
comando operativo di rag- 
giungere il robot centrale 
nemico e di distruggerlo. 
Dovete quindi sorvolare la 
base nemica; colpite i serba- 
toi di carburante e i dischi 
che sparano contro di voi. 
Fate attenzione ai missili 
che escono dalle cave sotter- 
ranee e ai siluri d’alta quota. 
Superato il primo schermo, 
prima di entrare nella se- 
conda base, dovete superare 
un difficile ostacolo: due 
squadriglie di aerei nemici 
puntano contro di voi, se- 
guite da micidiali kamikaze 
che attentano alla vostra vi- 
ta; se li superate tutti l’ac- 
cesso alla seconda base è as- 
sicurato. 

In fondo alla seconda base si 


dba 


trova il robot centrale che 
dovete distruggere. Per di- 
fendersi vi manda contro 
dei terribili dischi robot che 
si muovono a bassa quota: 
distruggetene più che pote- 
te. Fate attenzione anche ai 
kamikaze e se riuscirete a 
superare tutti gli ostacoli 


35683888 
titti 


preparatevi per la fase fina- 
le: appena compare il robot 
centrale sparate a raffica, e 
cercate di non farvi sor- 
prendere dal siluro che vi 
punterà contro. Se non riu- 
scite a far esplodere il robot, 


1ST0S7909 
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in breve tempo si ritirerà e 
sarete costretti a proseguire 
la missione alla ricerca di 
un secondo robot. Se invece 
lo distruggerete passerete al 
livello di difficoltà supe- 
riore. 


Come si gioca 


Selezionate con i tasti F1, F2 
ecc. l'opzione che preferite; 
potete giocare da soli o sfi- 
dare qualcuno, pilotando il 
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35088388 


liti 


35688388 
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vostro aereo con il joystick 
o agendo sui tasti cursore. 
Poiché il game richiede una 
certa abilità nei movimenti 
vi consigliamo l’uso del jo- 
ystick che deve essere inse- 
rito in porta 1. Nel caso di 
un secondo giocatore, 


quest'ultimo dovrà utilizza- 
re un joystick inserito in 
porta 2. 

Spostando la cloche verso 
sinistra o destra (o utiliz- 
zando i tasti cursore sini- 
stro o destro) l'aereo si spo- 
sta di conseguenza; per le- 


varsi in volo tirare le cloche 
verso di sé, per planare 
spingerla in avanti (oppure 
agire sui tasti che muovono 
il cursore rispettivamente 
verso il basso e verso l'alto). 
Per sparare usate il pulsan- 
te situato sulla cloche (op- 
pure la barra spazio). 

Sulla sinistra del vostro 
schermo si trova un indica- 
tore di altitudine; tenete 
sempre un occhio sull’indi- 
catore per evitare di urtare 
contro le barriere difensive. 
Il vostro caccia ha una certa 
riserva di energia, il cui li- 
vello è indicato sul basso del 


teleschermo. A mano a ma- 
no che procedete nella vo- 
stra missione la riserva di- 
minuisce e occorre far rifor- 
nimento colpendo i serbatoi. 
Al quarto livello l’aereo è 
molto veloce e il carburante 
diminuisce rapidamente. 
Dovete provvedere a colpire 
più serbatoi che potete. Se la 
riserva di carburante si 
esaurisce l’aereo precipita 
al suolo. 


Livelli di gioco 


È possibile scegliere tra 4 
differenti livelli di gioco. Nel 
primo livello si possiedono 


5 aerei nei livelli 2,9 e 4 se 
ne possiedono 3. Salendo di 
livello il vostro aereo diven- 
ta sempre più veloce, au- 
mentando, di conseguenza, 
il consumo energetico e il si- 
stema difensivo nemico. 


Sospensione 
del game 


Digitando contemporanea- 
mente il tasto “CONTROL” e 
il tasto “STOP” il game viene 
sospeso e si annulla la par- 
tita in corso. Per ricomin- 
ciare scegliere l'opzione che 
preferite digitando i tasti 
Fl, F2 ecc. 


Il caricamento 


Accertatevi che il nastro sia 
posizionato all’inizio del 
programma quindi digitate 
LOAD “CAS”, R seguito da 


ENTER e fate partire il regi- 
stratore in PLAY. 


Il punteggio 


Il punteggio finale dipende 
dalla vostra abilità nel di- 
struggere le difese della ba- 
se che sorvolate. Ecco di se- 
guito i valori in punti di 
ogni singolo elemento: 


Serbatoi 300 pis 
Dischilaser 300 pts 
Aerei 200-400 pts 
Dischi-robot 400 pts 
Razzi verticali 100 pts 
Siluri 200 pts 


Ogni 10000 punti si vince 
un aereo. 


Guida all’input MSX 


Per motivi di stampa e chia- 
rezza, i caratteri grafici o 
comunque tutti i simboli il 
cui codice (ASC(“car.”)) è 
superiore a 127, compaiono 
nei listati codificati in modo 
particolare. 

Ogni carattere o serie di ca- 
ratteri uguali e contigui, è 
sostituito da parentesi graf- 
fe contenenti: 

— il numero dei caratteri 


(omesso se=l1) 

— la lettera maiuscola “C” 
oppure “A” a seconda se si 
tratta del set normale (ca- 
ratteri ottenuti con 
CHR$(1)+CHR$(n)) 

— codice “n” del carattere o 
dei caratteri da battere. 
Qualsiasi computer MSX voi 
abbiate, potete riferirvi al 
manuale per trovare la cor- 
rispondenza tra il codice-ca- 


rattere dato e il simbolo a 
cui corrisponde. 
ESEMPIO: 

{3C190 } = battere 3 volte 
il carattere PI-GRECO 

{A67 } = battere il carat- 
tere cuore 


FROGGER 


Questo programma è la ver- 
sione MSX del popolare vi- 
deogame che sicuramente 
conoscete. 

Una rana comandata dal vo- 
stro joystick o dai tasti cur- 
sore del computer deve rag- 
giungere una qualsiasi delle 
sue 4 dimore. Per far ciò è 
costretta ad attraversare 
una strada, evitando auto, 
moto e camion, e a superare 
un fiume, saltando sui tron- 
chi. Attenzione, però, ai 


1090 REM SKIPPY 


tronchi scuri, se non volete 1010 REM 
scivolare in acqua. Ogni vol- 1020 SCREEN1,0,0:CLEAR1800 
ta che raggiungete la meta a COLOR SUA RIA 
guadagnate un punto. Sk rr to 0 
Il programma sfrutta tutta 1060 GOSUB1610:GOSUB1550 
la velocità del Basic MSX, 1070 KX=128:KY=160:K=1 
senza necessariamente ri- 1080 PUTSPRITEO,(KX,KY),15,K 
; ; SI 1090 REM LOOP PARTITA 
SSLLoLa A routines in lin 1100 GOSUB1360:IF(KAND1)=0THENGOSUB1490:GO 
guaggio macchina. T01100 


1110 CH=VPEEK(6144+(KX+4)/8+INT((KY+4)/8)* 
32) 

1120 IFCH<>32ANDCH<>240AND(CH<2080RCH>210) 
THEN1180 

1130 IFKY=16THEN1300 

1140 GOSUB1320:IFSTTHENGOSUB1480 

1150 IFCH>207ANDCH<211THENKX=KX+(8ANDKY=32 
)-(8BANDKY=48):GOT01080 

1160 GOTO1100 

1170 REM SCONFITTA 

1180 KA=KA-1:PLAY"O1L64BAGFEDC" 

1190 IFKATHENGOTO1060 

1200 PUTSPRITEO,(0,208),0,0 

120 .L'OCATE2,14 

1220 PRINT" PECCATO! NON CE L'HAI FATTA" 


1230 
1240 
1:250 
1260 
1270 
1280 
1290 
1300 


LOCATE2,16 

PRINT"Premi la barra-spazio per un " 
LOCATE 2,18 

PRINT" altro tentativo" 
GOSUB1320:IFTG=0THEN1270 

GOTO01050 

REM VITTORIA 
PLAY"01L64CDEFGABO2CDEFGABO3CDEFGABOY 


CDEFGAB":SC=SC+1:GOT01060 

REM INPUT 
FORI=0T02:ST=STICK(I):TG=STRIG(I) 
IFST OR TG THENI=2 

NEXTI:RETURN 

REM MOVIMENTO CARATTERI 
L2$=RIGHT$(L2$,1)+LEFT$(L2$,3 


1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
URLO, 
1720 
1730 
1740 


9 
L1$=RIGHT$(L1$,31)+LEFT$(L1$,1) 
C3$=RIGHT$(C3$,1)+LEFT$(C3$,31) 
C2$=RIGHT$(C2$,31)+LEFT$(C2$,1) 
C1$=RIGHT$(C1$,1)+LEFT$(C1$,31) 
LOCATEO,4:PRINTL2$; 
LOCATEO,6:PRINTL1$; 

LOCATEO, 14:PRINTC3$; 

LOCATEO, 16:PRINTC2$; 
LOCATEO,18:PRINTC1$; 

RETURN 

REM MOVIMENTO CANGURO 

K=ST:M=ST 

K=K XOR1 
KX=KX+(8ANDM=3)-(8ANDM=7) 
KY=KY+(8ANDM=5)-(8ANDM=1) 
PUTSPRITEO,(KX,KY),15,K 

RETURN 

REM PUNTEGGIO 

IFSC>HSTHENHS=SC 
LOCATE7,0:PRINTSC 
LOCATE17,0:PRINTHS 
LOCATE28,0:PRINTKA 

RETURN 

REM DISEGNO SCHERMO 

LOCATEO,1 

PRINTB1$;RV$;B2$ 

LOCATE 0,20:PRINT B3$;B4Y$; 
LOCATE1,0 

PRINT "PUNTI: REC.: 
GOTO1410 

REM DEFINIZIONE FIGURE 

C=192 

READI:IFI<OTHEN1760 
FORJ=0T07:VPOKEC*8+J,I 
READI:NEXTJ 

VPOKE8192+C/8,I 

C=C+1 
IFC=1940RC=2030RC=2110RC=2170RC=2260R 


C=2330RC=241THENC=(C+7)AND248 


1750 
1760 
1770 
1780 
1790 
1800 


GOT01690 

FORI=0T07 
S$="":FORJ=0T07:READC 
S$=S$+CHR$(C):NEXTJ 
SPRITE$(I)=S$:NEXTI 
CRé=CHR$(192)+CHR$(193) 


A CIO 
CITI 


Per rendere più appassio- 
nante e impegnativo il vo- 
stro videogame potete au- 
mentare gli ostacoli sul per- 
corso, oppure cambiare il 
numero delle vite della vo- 
stra rana, agendo sulla va- 
riabile KA alla linea 1050. 


Tratto dalla rivista “Paper 
Soft” n. 19/'85 
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1810 LY$=CHR$(202)+CHR$(201)+CHR$(200) 
1820 BK$=CHR$(224)+CHR$(225) 
1830 LG$=CHR$(208)+CHR$(209)+CHR$(210) 
1840 C1$=CR$+CR$+SPACE$(8)+CR$+SPACE$(4)+C 
R$+CR$+CR$+SPACE$(2)+CR$+SPACE$(2)+CR$ 
1850 C2$=LY$+SPACE$(12)+LY$+SPECE$(3)+LY$+ 
LY$+SPACE$(5) 
1860 C3$=BK$+BK$+SPACE$(8)+BK$+BK$+BK$+BK$ 
+BK$+SPACE$(8)+BK$ 
1870 L1$=LG$+STRING$(3,CHR$(248))+LG$+STRI 
NG$(3,CHR$(248))+STRING$(3,CHR$(216))+STRI 
NG$(2,CHR$(248))+LG$+STRING$(3,CHR$(248))+ 
LG$+STRING$(2,CHR$(248))+STRING$(2,CHR$(21 
6))+STRING$(2,CHR$(248)) 
1880 L2$=LG$+STRING$(3,CHR$(248))+LG$+STRI 
NG$(3,CHR$(248))+STRING$(3,CHR$(216))+STRI 
NG$(3,CHR$(248))+LG$+STRING$(3,CHR$(248))+ 
STRING$(4,CHR$(216))+STRING$(2,CHR$(248)) 
1890 RV$=STRING$(160,CHR$(248)) 
1900 B1$=STRING$(32,CHR$(232)) 
1910 FORI=1T016STEP4 
1920 B1$=B1$+STRING$(4,CHR$(232))+SPACE$(1 
)+STRING$(3,CHR$(232)) 
1930 NEXTI 
1940 BNé=LEFT$(BN$,63):BN$=BN$+CHR$(232) 
1950 B2$=STRING$(160,CHR$(240)) 
1960 B3$=STRING$(64,CHR$(240)) 
1970 B4Y$=STRING$(32,CHR$(232)) 
1980 RETURN 
1990 REM DATA CARATTERI 
2000 DATA. 7,28,565,127,219,231,36,28)208 
DATA 128,64,32,252,218,229,38,24,208 
DATA 0,0,0,0,255,255,60,24,96 
DATA 64,64,64,64,255,255,128,0,96 
DATA T.9,9, 03,127, 427,390 
DATA 191,109,182,109,218,1259,171,98;1 


DATA 255,181,235,182,47,254,93,190,19 
DATA 250721 3, 1.:90,91:,182!,,1(019', 1:8/23,,253),,1 


DATA .030 67172, 2401921255, 07,197 
DATA. Tab 1455; 72725468176 

DATA 96,200,244,12,154,164,228,24,176 
DATA 255,255,2595, 255,255 ;@55,095,255, 


DATA 03127, V27,.127,,127:, 127 127,127 1060 


DATA 17T0,85,170.;85.,170,85,170,85,81 
DATA-1 

REM DATA SPRITES 

DATA 36,24,90,60,24,60,60,219 
DATA 36,24,24,60,90,189,126,36 
DATA 8,24,28,24,60,61,58,220 
DATA 4,12,14,24,60,188,184,94 
DATA 219,60,60,24,60,90,24,36 
DATA 36,126,189,90,60,28,24#,36 
DATA 16,24,56,24,60,188,92,59 
DATA 32,48,112,24,60,61,29,122 


CLUB 


È un programma che per- 
mette di gestire l’archivio 
soci di un club o di qualsiasi 
organizzazione a carattere 
sociale. Basta dunque con il 
macchinosi e antiquati 
schedari. 

CLUB per la memorizzazio- 
ne permanente utilizza sia 
il registratore che, per chi 
ovviamente lo possiede, il 
DRIVE MSX da 3.5 pollici. 
La selezione tra i due viene 
effettuata automaticamente 
dal programma stesso dan- 


do priorità al supporto mi- 
gliore ovvero al DRIVE. 

Ma vediamo come funziona: 
dopo il caricamento da cas- 
setta ci viene presentato 
sullo schermo un menù. Le 
opzioni presenti permetto- 
no di controllare completa 
mente lo schedario. 

L'unica scelta che possiamo 
effettuare, se è la prima vol- 
ta che usiamo il program- 
ma, è la 2 ovvero inserimen- 
to di un nuovo socio. Possia- 
mo a questo punto digitare i 
dati di tutti i soci seguendo 
le istruzioni che il program- 
ma di volta in volta fornirà. 
In questo modo abbiamo 
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.CLEAR 10000,57000!:KEY OFF:CLS 

REM : 

GOSUB 1640 *'initialise 

GOSUB 1690 'display menu 

CLS 

ON Z GOSUB 90,200,310,370,420,540,650 


REM >>>OPTION 1: Load member records fr 
tape 
100 LOCATE 5,10:PRINT"predisponi il regist 
ratore" 
110 OPEN "members" FOR INPUT AS #1 
120 INPUT #1,HI,NO 
130 VLS:LOCATE 5,2:PRINT"File aperto, "NO" 
records " 
140 LOCATE 0,10:PRINT"LETTURA"; 
150 FOR J=1 TO NO 
160 LINE INPUT #1,M$:GOSUB 1870::PRINT"."; 
170 NEXT J 
180 PRINT:PRINTNO"SCHEDE caricate dal regi 
stratore":CLOSE:GOSUB 2050:RETURN 
190 REM > 
200 REM >>>OPTION 2: Add a new member reco 
rd 
210 NO=NO+1:HI=HI+1:NN=HI:PT=NO 
220 M$=STR$(NN) 
230 GOSUB 720:GOSUB 800 
240 FOR XN=1 TO 8:GOSUB 1140:NEXT 
250 GOSUB 800:GOSUB 1420 
260 GOSUB 2050 
270 IF NOT OK THEN NO=NO-1:HI=HI-1 
280 GOSUB 2090 
290 IF REP THEN 210 ELSE RETURN 
300 mune 
310 REM >>>OPTION 3:Change a member record 
320 H$="CAMBIA UNA SCHEDA":GOSUB 960 
330 GOSUB 1420 
340 GOSUB 2090 
350 IF REP THEN 320 ELSE RETURN 
360 REM ssquaesacoganoa 
370 REM >>>OPTION 4:Display a member recor 
d 


380 H$="VISUALIZZA UNA SCHEDA":GOSUB 960 
390 GOSUB 2090 

400 IF REP THEN 380 ELSE RETURN 

410 


d 

430 H$="CANCELLA UNA SCHEDA":GOSUB 960 
LOCATE 0,20:INPUT "Cancello questa sch 

eda (Y,N)";Z$ 


450 IF Z$<>"Y" AND Z$<>"y" THEN 510 

460 NO=NO-1 

470 FOR J=NN TO N 

480 MN(J)=MN(J+1):NT$(J)=NT$(J+1):NF$(J)=N 

F$(J+1):NS$(J)=NS$(J+1) 

490 A$(J)=A$(J+1):AT$(J)=AT$(J+1):AP$(J)=A 

P$(J+1):T$(J)=T$(J+1):JD$(J)=JD$(J+1) 

500 NEXT J 

510 GOSUB 2090 

520 IF REP THEN 430 ELSE RETURN 

530 REM =->-=-snanononane-eoncio=- 

540 REM >>>OPTION 6;Save records to tape 

550 LOCATE 5,10:PRINT"Predisponi il regist 

ratore per RECORD" 

560 OPEN "members" FOR OUTPUT AS #1 

570 PRINT #1,HI,NO 

580 CLS:LOCATE 5,2:PRINT"File aperto, "NO" 
SCHEDE " 

590 LOCATE 0,10:PRINT"SCRITTURA"; 

600 FOR J=1 TO NO 

610 GOSUB 1820:PRINT#1,M$:PRINT"."; 

620 NEXT J 

630 PRINT:PRINTNO"SCHEDE scritte sul nastr 

o":CLOSE:GOSUB 1050:RETURN 

640 REM —=2=--=-=----m2---2-=-- 

650 REM >>>OPTION 7: Stop 

660 LOCATE 0,10:PRINT"Tutte le modifiche e 

seguite dopo 1l1' ultimo SAVE saranno perse 
n" 

670 LOCATE 2,15:PRINT"Premi S per OK,altro 
per abortire" 

680 INPUT Z$ 

690 IF Z$="S" OR Z$="s" THEN STOP 

700 

T10 n - renga na- 

720 REM >>>Set up blanke for ENTER MEMBER 
RECORD 

730 H$="#** SCHEDA PERSONALE ***" 

740 NT$="....":NF$=STRING$(20,"."):NS$=STR 
ING$(10,".") 

7150 AS$=STRING$(20,"."):AT$=STRING$(15,"." 
):AP$=eSTRING$(10,".") 

7160 T$=STRING$(12,".") 

TT ID$=" csi 

780 RETURN 

790 REM =-=-===---2-2--nn-csa-2- 

800 REM >>>Displays member screen format 
810 CLS + 

820 PRINT TAB(9);H$ 

830 LOCATE 8,2:PRINT"Numero del socio "M$ 
840 LOCATE 1,4:PRINT"NOME---:" 

850 LOCATE 5,5:PRINT"Titolo"TAB(16);NT$ 


860 LOCATE 5,6:PRINT"Cognome."TAB(16);NF$ 
870 LOCATE 5,7:PRINT"Nome"TAB(16);NS$ 

880 LOCATE 1,9:PRINT"INDIRIZZO:" 

890 LOCATE 5,10:PRINT"Via"TAB(16);AS$ 

900 LOCATE 5,11:PRINT"Citta'"TAB(16); AT$ 
910 LOCATE 5,12:PRINT"C.A.P."TAB(16);AP$ 
920 LOCATE 5,13:PRINT"Telefono"TAB(16);T$ 
930 LOCATE 8,15:PRINT"Data iscriz."TAB(22) 
3JD$ 

940 RETURN 

950 REM ----n---=----- n: 

960 REM >>> Input mem no,find & display re 

e 

970 CLS:LOCATE 0,10:INPUT "Batti il numero 
del socio =-> ";NN 

980 IF (NN<1) OR (NN>HI) THEN 1020 

990 FOR J=1 TO NO 

1000 IF NN=MN(J) THEN 1070 

1010 NEXT J 

1020 LOCATE 0,12:PRINT"NOon ci sono SCHE 
DE con questo numero" 

1030 GOSUB 2090 

1040 IF REP THEN 970 

1050 RETURN 

1060 REM NN=mem no, PT=position 

1070 PT=J:M$=STR$(NN) 

1080 NT$=NT$(PT):NF$=NF$(PT):NS$=NS$ (PT) 
1090 AS$=AS$(PT):AT$=AT$(PT):AP$=AP$(PT) 
1100 T$=T$(PT):JD$=JD$ (PT) 

1110 GOSUB 800 

1120 

1130 

1140 REM >>>Prompt to chine a member fiel 
d depending on XN (1-8) 

1150 ON XN GOTO 1170,1190,1210,1230,1250,1 
2T:0:,1:29:0i,/13:1.0 : 

1160 PRINT"XN fuori parametro in SR2000":S 

TOP 

1170 LOCATE 14,5:GOSUB 1340:NT$=X$ 

1180 RETURN 

1190 LOCATE 14,6:GOSUB 1340:NF$=X$ 

1200 RETURN 

1210 LOCATE 14,7:GOSUB 1340:NS$=X$ 

1220 RETURN 

1230 LOCATE 14,10:GOSUB1340:AS$=X$ 

1240 RETURN 

1250 LOCATE 14,11:GOSUB1340:AT$=X$ 

1260 RETURN 

1270 LOCATE 14,12:GOSUB1340:AP$=X$ 

1280 RETURN 

1290 LOCATE 14,13:GOSUB 1340:T$=X$ 

1300 RETURN 

1310 LOCATE 20,15:GOSUB1340:JD$=X$ 


1320 RETURN 
1330 REM : 
1340 REM >>>Input field X$ peo strip trail 
ing dots 
1350 INPUT X$ 
1360 FOR J=LEN(X$) TO 1 STEP >1 
1370 IF MID$(X$,J,1)<>"." THEN 1390 
1380 NEXT J 
1390 X$=LEFT$(X$,J) 
1400 RETURN 
1410 
1420 REM >>>Moddify member record NN and o 
tionally store at position PT 
1430 FOR J=1 TO 3 
1440 LOCATE 1,J+4:PRINT J 
1450 NEXT J 
1460 FOR J=4 TO 7 
1470 LOCATE 1,J+6:PRINT J 
1480 NEXT J 
1490 LOCATE 1,15:PRINT 8 
1500 LOCATE 0,20:PRINT"Cambi una voce (1-8 
,0=nessuna)"; 
1510 INPUT XN 
1520 XN=INT(XN): IF XN<O OR XN>8 THEN 1510 
1530 LOCATE 0,20:PRINT" 
ULI 
1540 IF XN<>0 THEN GOSUB 1140:GOTO 1500 
1550 LOCATE 0,20:PRINT"Memorizzo questo RE 
CORD (Y,N)"; 
1560 INPUT Z$:0K=Z$="Y" OR Z$="y" 
1570 IF NOT OK THEN PRINT "I cambiamenti s 
ono cancellati":RETURN 
1580 PRINT "Il RECORD sul video e' in memo 
ria" 
1590 MN(PT)=NN 
1600 NT$(PT)=NT$:NF$(PT)=NF$:NS$(PT)=NS$ 
1610 AS$(PT)=AS$:AT$(PT)=AT$:AP$(PT)=AP$:T 
$(PT)=T$:JD$(PT)=JD$ 
1620 RETURN 
1630 REM ------ cela) 
1640 REM die arrays & zeroise cou 
nters 
1650 DIM MN(100),NT$(100),NF$(100),NS$(100 
) ,AS$(100),AT$(100),AP$(100),T$(100),JD$(1 
00) 
1660 HI=0:N0=0 
1670 RETURN 
1680 REM ---22=23- . 
1690 REM >>>Main Menu 
1700 CLS:PRINT"-- CLUB MEMBERSHIP FILINGS 
YSTEM «-" 
1710 LOCATE 2,3:PRINT"1.-Carica: l'archivio 
dal tape" 


creato il nostro archivio, 
per fare in modo che non 
venga “dimenticato” dal 
computer al suo spegnimen- 
to bisognerà “savarlo”. Per 
fere questo si sceglie l’opzio- 
ne 6 salvataggio dati utiliz- 
zando registratore o DRIVE. 
Dovendo riutilizzare l’archi- 
vio dopo aver speto l’MSX 
occorrerà ricaricare i dati 
con l’opzione 1. 


F7 


Le altre possibilità che ci ve- 
gono fornite sono: 3 modifi- 
ca una scheda, 4 trova una 
scheda, 5 dimentica una 
scheda. Infine la scelta nu- 
mero 7 ci permetterà di la- 
sciare il programma avver- 
tendoci tra l’altro che tutte 
le modifiche che non sono 
state salvate con 6 saranno 
dimenticate. 


Tratto dell'archivio 
della Jackson. 
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1720 LOCATE 2,5:PRINT"2. Aggiungi un nuovo 
socio" 

1730 LOCATE 2,7:PRINT"3. Cambia una scheda 

n 


1740 LOCATE 2,9:PRINT"4. Visualizza una sc 
heda" 

1750 LOCATE 2,11:PRINT"5. Cancella un soci 
o" 

1760 LOCATE 2,13:PRINT"6. Salva l'archivio 
n 


1770 LOCATE 2,15:PRINT"7. Fine" 

1780 LOCATE 0,20:INPUT "Scegli l'opzione 
CISTOTIZ 

1790 Z=INT(Z):IF Z<1 OR Z>7 THEN 1780 

1800 RETURN 

1810 REM --------2----»-----n- 

1820 REM >>>From member rec M$ from Jth ar 

ray elements 

1830 M$=STR$(MN(J))+"_ "+NT$(J)+" "+NF$+"_" 

+NSg$+"_ "+AS$+" "+AT$+" "+AP$+" "+T$+" "+JD 

$+" n" 

1840 M$=M$+AT$(J)+"_ "+AP$(J)+"_"+T$(J)+" " 

+JD$+" n 

1850 RETURN 

1860 REM 2---n---2-n-----22-2n 

1870 REM >>> Split up member rec Mîto Jth 

array elements 

1880 P2=0:GOSUB 2000 

1890 MN(J)=VAL(V$) 

1900 GOSUB 2000:NT$(J)=V$ 

1910 GOSUB 2000:NF$(J)=V$ 

1920 GOSUB 2000:NS$(J)=V$ 

1930 GOSUB 2000:AS$(J)=V$ 

1940 GOSUB 2000:AT$(J)=V$ 

1950 GOSUB 2000:AP$(J)=V$ 

1960 GOSUB 2000:T$(J)=V$ 

1970 LM=LEN (M$):IF LM>P2 THEN JD$(J)=RIGH 

T$(M$,LM-P2) ELSE JD$(J)="" 

1980 RETURN 

1990 REM -------2-------4---- 

2000 REM >>>Set Vî$ ti next field in M$ 

2010 P1=P2+1:P2=INSTR(P1,M$,"_") 

2020 V$=MID$(M$,P1,P2-P1) 

2030 

2040 REM >----- n------2------- 

2050 REM >>> Delay 

2060 FOR JJ=1 TO 1000 

2070 RETURN 

2080 REM --------------2----=- 

2090 REM >>> Repeat or Exit 

2100 LOCATE 0,20:INPUT "> [R]ipeti o [E]sc 

i da questa fase";Zî$ 

2110 REP=Z$="r" OR Z$="R" 

2120 RETURN 


BALLOONS 


Questo è un gioco in cui met- 
terete a dura prova la vostra 
abilità nel tiro con l’arco. Si 
tratta di lanciare delle frec- 
ce verso l’alto cercando di 
non colpire i palloni che 


svolazzano sopra di voi. Le 
frecce a vostra disposizione 
sono 15. Per spostare l’arco 
utilizzate i tasti cursore 


mentre per scagliare le frec- 
ce premete la barra-spazio. 


Ogni colpo vincente vi farà 
guadagnare 10 punti. Il pro- 
gramma sfrutta una routine 
in linguaggio macchina per 
lo scroll dello schermo. Il 
numero di frecce a vostra di- 
sposizione può essere cam- 
biato agendo sulla variabile 
NS alla linea 125. Inoltre 
potete modificare la velocità 
dei palloni cambiando il va- 
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1 GOSUB60000 

5 COLOR 15,7,7:SCREEN1,2:KEYOFF 

15 FORI=1072T01079:READQ:VPOKEI,Q:VPOKEI+4 
8,Q:VPOKE80+I,Q:NEXT:FORI=1088T01119:READQ 
:VPOKEI,Q:NEXT:FORI=1128T01135:READQ:VPOKE 
I,Q:NEXT:FORI=1280T01311:READQ:VPOKEI,Q:NE 
XT:FORI=1216T01231:READQ:VPOKEI,Q:NEXT 

17 VPOKE8208,135:VPOKE8209,231:VPOKE8210,1 
67:VPOKE8211,23:VPOKE8212,231 

20 FORI=1T032:READQ:A$=A$+CHR$(Q):NEXT:SPR 
ITE$(0)=A$:A$="" 

25 FORI=1T032:READQ:A$=A$+CHR$(Q):NEXT:SPR 
ITE$(1)=-A$:Ag="" 

30 FORI=1T032:READQ:A$=A$+CHR$(Q):NEXT:SPR 
ITE$(2)=A$ 

35 DEFUSRO=60000!:P0KE59996!,10:P0KE59999! 
,8 

40 DEFUSR2=60350!:FORI=60350!T060377!:READ 
Q:POKEI,Q:NEXT:P0KE60346!,33:POKE60347!,24 
:POKE60348!,255:POKE60349!,24 

55 FORI=6441T06454:VPOKEI,134:NEXT:FORI=65 
69T06582:VPOKEI,134:NEXT:VPOKE6473,134:VPO 
KE6486,134:VPOKE6537,134:VP0KE6550,134:FOR 
I=1T011:PRINT:NEXT:PRINTTAB(7)CHR$(134)" 

I PALLONI "CHR$(134) 

60 IFINKEY$=""THEND=RND(1):GOTO60 

99 REM DISEGNO SCHERMO 

100 CLS 

105 FORI=6816T06820:VPOKEI,23:NEXT:FORI=68 
42T06847:VPOKEI,23:NEXT:FORI=6542T06790STE 
P31:VPOKEI,162:NEXT 

110 FORI=6544T06808STEP33:VPOKEI,163:NEXT: 
VP0OKE6821,160:VPOKE6841,161 

115 FORI=6496T06527:VPOKEI,INT(RND(1)*4+13 
6):NEXT 

120 VPOKE6592,141:VPOKE6590,141:VPOKE6600, 
141:VP0OKE6615,141:VPOKE6563,141:VPOKE6587, 
141 

125 NS=15:S=NS 

130 PUTSPRITEO,(117,140):PUTSPRITE2,(118,1 
39) 

135 GOSUB1000 

140 INTERVALON:ONINTERVAL=15GOSUB550 

150 STRIG(0)ON:ONSTRIGGOSUB800 

160 FORI=6240T06303:IFRND(1)<.1THENVPOKEI, 
134 

165 NEXT 

199 REM CONTROLLO 

200 D=USR(D):IFF=0THENVPOKE6921,VPEEK(6913 
) 

205 K=VPEEK(6913):IFK<=69THENPOKE59996!,8E 
LSEIFK>=165THENPOKE59996!,2ELSEPOKE59996!, 
10 

210 IFRND(1)<.03+SC/2000THENGOSUB500 

220 IFF=1THENGOSUB300 


290 GOT0200 

299 REM MOVIMENTO FRECCIA 

300 K=VPEEK(6920):VPOKE6920,K=3:IFK>55THEN 
RETURN 

305 REM CONTROLLO COLLISIONE 

310 IFK<7THENPLAY"s1m200019n55n53":VPOKE65 
70+NS-S,152:SC=SC+10:S=S-1:GOSUB1000:F=0:V 
POKE6920,139:VPOKE6914,0:RETURN 

320 AR=INT(K/8):J=6144+AR*32+AC:K1=VPEEK(J 
):IFK1<>134ANDK1<>140ANDK1<>144THENRETURN 
330 INTERVALOFF:VPOKEJ,153:F=0:PLAY"1105s10 
m90n20":VPOKE6920,139:VPOKE6921,VPEEK(6913 
)+1:VPOKE6914,0:S=S-1:GOSUB1000:VPOKEJ,32: 
INTERVALON: RETURN 

499 REM ALTRI PALLONI 

500 IFRND(1)<.5THENK1=134YELSEIFRND(1)<.5TH 
ENK1=144ELSEK1=140 

505 VPOKE6207+INT(RND(1)*6)*32,K1 

520 RETURN 

549 REM SCROLL 

550 D=USR2(D):RETURN 

799 REM LANCIO FRECCIA 

800 IFF=1THENRETURN 

802 IFS=0THEN900 

805 F=1:VPOKE6914,4:VPOKE6920,130 

810 AC=INT(VPEEK(6921)/8)+1 

820 RETURN 

899 REM GAME OVER 

900 ONINTERVAL=7GOSUB550:INTERVALON:POKE60 
3481!,223:POKE60349!,26 

905 PUTSPRITEO,(100,200):PUTSPRITE2,(100,2 
00):CLS:FORI=1T030:VPOKE6177+INT(RND(1)*70 
0),134:PLAY"164s8m500n50":NEXT 

910 PRINT"Punti totalizzati:";SC 

920 IFINKEY$=""THEN930ELSE920 

930 IFINKEY$=""THEN930 

990 SCREEN1:END 

999 REM AGIORNAMENTO PUNTEGGIO 

1000 FORI=1T023:PRINT:NEXT:PRINT"PUNTI:";S 
C;TAB(13);" FRECCIE:";S;CHR$(11); 

1010 RETURN 

1099 REM DATA CARATTERI 

10000 DATA120,252,252,252,120,48,26,5 
10002 DATA0,0,0,49,123,255,255,255 

10004 DATA0,0,131,207,255,255,255,255 
10006 DATA#48,121,251,255,255,255,255,255 
10008 DATA0,0,0,0,129,201,255,255 

10010 DATA81,213,85,54,28,8,8,8 

10012 DATA1,2,4,248,0,0,0,0 

TOOL DATA128;64,32;31,0/0,0,0 

10016 DATA1,2,4,8,16,32,64,128 

10018 DATA128,61,32,16,8,8,2,î 

10020 DATA16,16,16,16,16,16,56,16 

10022 DATA146,4,32,9,128,16,69,8 

10099 REM DATA SPRITES 


lore 15 alla linea 140. Se vo- 
lete scagliare delle frecce 
più veloci alla linea 300 mo- 
dificate K-3 in K-5. 
Riguardo le variabili usate 
SC è il punteggio, NS il nu- 
mero delle frecce a disposi- 
zione, S il numero delle frec- 
ce rimaste. 
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10100 DATA1,6,24,48,96,64,192,128,128,64,3 
2g tata 11084906 A 1a 
16,32,64,128 

10110 DATA1,6,24,48,96,192,192,255,0,0,0 
2070, 0; 05128,96,24,12,60,3+3,25570 700,0; 
0,0,0 

10120 DATA, ba 1a tt; 

0188645000; 0500050 

10199 REM DATA SCROLL 

10200 DATA42,186,235,43,35,205,27,235,43,2 
05 ,44,235;35,237,91,188,235,123,189,194719 
4,235,122,188,194,194,235,201 

60000 CLS:RESTORE60020 

60010 FORI=60000!T060217!:READQ:POKEI,Q:NE 
XT:RESTORE:RETURN 

60020 DATA219,170,230,240,33,92,234,94,246 
8,0050070 Di dd da dada 21249; 169 7 
Tab gi OD 

60030 DATA0,0,0,230,128,194,151,234,203,91 
,202,151,234,62,3,50,94,234,195,209,234,12 
0,230,64,194,170,234,203,83,202,170,234,62 
2 

60040 DATA50,94,234,195,209,234,120,230,32 
,194,189,234,203,67,202,189,234,62,0,50,94 
,234,195,209,234,120,230,16,194,208,234,20 
3,75,202,208,234,62,1,50,94,234,195,209,23 
4,201,62,0,50,93,234,58 

60050 DATA93,234,203,39,203,39,79,6,0,33,0 
s21.,9,58,95-x234,T1 ,98,94,234,87,254,0,194, 
PO 238,205, 27,235 121, 152,79,195,04,235,2 
54 


60060 DATA1,194,6,235,35,205,27,235,195,24 
4.234 ,254,2:5194, 20235; 205,27; 2351213128; 
79,195,44,235,35,205,27,235,195,14,235,125 
,243,211 

600:70. DATA153.,,124,211,153.50:,0.,0,0,219.,1:52, 
T9::1:83,,251.2.011-;1:25:7243.;.211-153124,,246 3.64, 
CN 153, 1:21a 201-152 7251201 


DISSOLVENZA 


10 * 
20 ' CLS DISSOLVENZA SCREEN 2 LM 

30" 

40 ' BY DARIO BONAVITACOLA 28-9-1985 

50 *! 

60 * 

To: 

80! 

90 COLOR 15,1,1 

100 CLEAR20,50000! 

110 OPEN"GRP:" FOR OUTPUT AS #1 

120 I=50000! 

130. *' 

140 ' BASIC CARICATORE 

150 * 

160 READX$:IFX$="STOP"THEN190 

170 POKEI,VAL("&H"+X$) 

180 I=I+1:GOT0160 

190 DEF USR0O=50000! 

200 i 

210 DATI ESADECIMALI DEL LM 

220 

230 DATA F3,06,04,0E,FF,21,00,00,11,00,18, 
CRB,39,CB,39,CD, 84,00: A71,CD,#D,00,3E;00;23; 
1B,BA,20,F2,BB,20,EF,10,E3,FB,C9,STOP 

240 * 

250 DEMO 

260 * 

270 SCREEN2 

280 PRESET(30,10):PRINT#1,"MSX CLS DISSO 
LVENZA DEMO" 

290 PRESET(30,11):PRINT#1,"MSX CLS DISSO 
LVENZA DEMO" 

300 FORI=30T0190STEP5:LINE(50,150)-(I,I),1 
1,B:NEXTI 

310 FORI=1TO50STEP3:CIRCLE(200,100),I1,9:NE 
XTT 

320 FORI=100T0200STEP2:LINE(100,100)-(I,30 
),5:NEXTI 

330 A$=INPUT$(1.) 

340 GOSUB 400' --> CLS 

350 FORI=1T0200 

360 GOTO 280 

3107 

380 ' SUBROUTINE DEL CLS 

390 *! 

400 A=USR(0) 

410- GLS 

420 RETURN 


INIZIALIZZAZIONE 


DISSOLVENZA o CLS è un 
programma totalmente in 
linguaggio macchina che 
permette di avere una can- 
cellazione del video piutto- 
sto insolita per il vostro 
MSX. In pratica questa rou- 
tine cancella la pagina gra- 
fica in alta risoluzione gra- 
datamente a file verticali 
parallele al posto del solito 
CLS di sistema. 


Inserire questa utility 
creando una piccola subrou- 
tine con il BASIC caricatore 
e le DATA e il gioco è fatto. 
Attenzione però ad usare 
questo sistema solo con lo 
schermo grafico (SCREEN 
8) altrimenti si potranno 
avere risultati alquanto 
spiacevoli... 


Tratto dall'archivio 
della Jackson 


RS 


R4 


>. 


CASINO 


Vi sembrerà di essere in una 
bisca reale infatti CASINO 
mette a disposizione tre dif- 
ferenti giochi di dadi, sele- 
zionabili da un menu inizia- 
le, che sfruttano una inte- 
ressante routine per il lan- 
cio dei dadi. 

Il primo gioco si chiama 
DERBY e consiste in una 
corsa di cavalli in cui il tota- 
le dei dadi ne determina, ad 
ogni lancio, la velocità. Que- 
sto gioco, come gli altri due, 


è per un numero di giocatori 
variabile da 2 a 4. Per lan- 
ciare i dadi è sufficiente pre- 
mere la barra-spazio: il con- 
tenitore dei dadi comincerà 
ad agitarsi, per fermarlo e 
vedere visualizzato il risul- 
tato dovrete ancora una vol- 
ta la barra-spazio. 

LAS-VEGAS è il secondo gio- 
co. All’inizio vi viene chie- 
sto di definire il piatto mas- 
simo che deve essere com- 
preso fra 40$ e 400$. Ogni 
giocatore, utilizzando il soli- 
to procedimento, lancia i da- 
di. Se escono due dadi con lo 
stesso valore vince il piatto, 


REI cOCGSOSO 


è 
o &g;;;;;;;;;sè 


Funtata giocatore 


YV|yy__v\v\Wv4JqqO COSE cfrKFFF;.[.“<_< .-eF,FFsFyT TFT ls 


2 ? E 


(-BE-T-P R-4-Tad_) 
È 
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> _&»ym6F6F&F6_—FFF&-&>F>p&Ò&EÈk&——PFr>>Er(£ktÈ*=*<*<*<*<><=>=<=><><xv<>x>X se si ottengono due l si vin- 


ce una somma pari al dop- 
pio del piatto. Dopo ogni gi- 
ro il piatto aumenta di 5$ se 
il piatto massimo risultante 
è inferiore ai 200$, di 10$ se 
tti So a erat mè superiore. La gara conti- 

i  mua fino ache un giocatore 
non ha incassato il massi- 


990 CLEAR500 | 


1000 REM DADI Il i mo piatto ammissibile. si 
1010 REM INIZIALIZZAZIONE Il terzo e ultimo gioco è il 
1020 ONINTERVAL=10GOSUB1160:GOSUB1470 famoso SEVEN-ELVEN. 


1030 SCREEN1,3:WIDTH30:KEYOFF 


All’inizio ogni giocatore ini- 
1040 GOSUB1190:COLOR 15,1,1 


iucò sosimazei |  ziaconunasommadi 100 $. 
1060 LOCATE4,3:PRINT"1> Derby" Ogni giocatore al proprio 
1070 LOCATE4,6:PRINT"2> Las-Vegas" i «turno fa una scommessa e 
a siedo eri Seven-eleven" quindi lancia i dadi. Se la 

INT L o è i 
1100 A=VAL(INKEY$):IFA<1ORA>3THEN1100 i somma dei dadi è 7 0 ll il 
1110 PLAY"OUYA6U" i giocatore vince subito ciò 
1120 ONAGOTO1710,2250,2670 che ha puntato. Se invece la 
1130 LOCATE4,10:PRINT"Premi un tasto.." somma è %,3 oppure 12iei 


perde la puntata. Ogni altro 
lancio rappresenta un nu- 


RO 


1140 A$=INKEY$:IFA$=""THEN1140 

1150 GOTO1040 

1160 INTERVALOFF:A$=INKEY$ 

1170 IFA$="q"ORA$="Q"THENRUNELSEINTERVALON 
: RETURN 

1180 REM SCHERMO 

1190 COLOR 14:FORX=0T031:LOCATEX,11:PRINT" 
{C204}":LOCATEX,20:PRINT"{C204}":NEXTX 
1200 FORY=12T019:LOCATEO,Y:PRINT"{C204}":L 
OCATE31,Y:PRINT"{C204}";:NEXTY 

1210 RETURN 

1220 REM 

1230 SOUNDO,0:SOUND1,3:SOUND8,10 

1240 PUTSPRITE1,(25,90),15,11 

1250 PUTSPRITE2,(57,90),15,12 

1260 PUTSPRITE3,(25,122),15,13 

1270. PUTSPRITEA, (57,122),.15,14 

1280 R%$=RND(-TIME)*6 

1290 DI=INT(RND(R$)*6)+1 

1300 SOUND8,0. 

1310 A$=INKEY$:IFA$=CHR$(32)THEN1390 
1320 PUTSPRITE1,(35,90),15,11 

1330 PUTSPRITE2,(67,90),15,12 

1340 PUTSPRITE3,(35,122),15,13 

1350 PUTSPRITE4,(67,122),15,14 

1360 R$=RND(-TIME)*6 

1370 D2=INT(RND(R$)*6)+1 

1380 A$=INKEY$:IFA$<>CHR$(32)THEN1230 
1390 PUTSPRITE1,(76,95 ),15,7 

1400 PUTSPRITE2,(108,95),15,8 

1410 PUTSPRITE3,(76,127),15,9 

1420 PUTSPRITE4,(108,127),15,10 

1430 PUTSPRITE5,(12,127),15,D1 

1440 PUTSPRITE6,(44,127),15,D2 

1450 RETURN 

1460 REM INIZIALIZZAZIONE 

1470 DIMS$(14),P(4,3),0(5) 

1480 RETURN 

1490 REM PULISCE 

1500 FORY=0T010:LOCATEO,Y 

1510 PRINTSTRING$(30," "):NEXTY 

1520 PLAY"03A64":RETURN 

1530 REM GIOCATORI 

1540 GOSUB1500 

1550 LOCATE0,0:PRINT"GIOCATORI ?(2-4)" 
1560 A$-<INKEY$:IFA$=""THEN1560 

1570 IFVAL(A$)<20RVAL(A$)>4THEN1560 
1580 PLAY"O05G64":PL=VAL(A$) 

1590 GOSUB1500 

1600 FORN=1TOW 

1610 P(N,1)=0 

1620 NEXTN 

1630 FORN=1TOPL 

1640 O(N)=1 


1650 NEXTN 

1660 FORQ=NTOY 

1670 0(Q)=0 

1680 NEXTQ 

1690 RETURN 

1700 REM DERBY 

1710 GOSUB1540 

1720 FORN=1T04 

1730 P(N,1)=0:P(N,2)=2*N-1 
1740 NEXTN 

1750 RESTORE1810 

1760 FORN=0T09 

1770 READA 

1780 LOCATE31,N 

1790 PRINTCHR$(A) 

1800 NEXTN 

1810 DETTA 200,202:,.7T0,73,;10,7T3,83,7T2:202;20 
0 

1820 GOSUB2200 

1830 FORW=1T0PL 

1840 LOCATE18,13:PRINT"Giocatore"; 
1850 LOCATE20,15:PRINTW 

1860 PLAY"O03F64" 

1870 A$=INKEY$:IFA$=""THEN1870 
1880 GOSUB2080 

1890 GOSUB1230 

1900 FORD=1T0(D1+D2)*2 

1910 GOSUB2160 È 

1920 P(W,1)=P(W,1)+1 

1930 GOSUB2180 

1940 NEXTD 

1950 NEXTW 

1960 WI=0 

1970 FORN=1T0% 

‘1980 IFWI>OTHEN2000 

1990 IFP(N,1)>24O0THENWI=N 

2000 NEXTN 

2010 IFWI=0THEN1830 

2020 GOSUB1500 

2030 GOSUB2080 

2040 LOCATE0,0:PRINT" Il giocatore ";WI;" 
ha ‘vinto! 

2050 FORT=1T02000:NEXTT 

2060 GOSUB1500:GOT01060 

2070 END 

2080 PUTSPRITE5,(100,100),1,0 
2090 PUTSPRITE6,(100,100),1,0 
2100 RETURN 

2110 END 

2120 FORN=1T04 

2130 LOCATEINT(P(N,1)/8),P(N,2) 
2140 PRINT" ":NEXTN 

2150 RETURN 

2160 LOCATEINT(P(W,1)/8),P(W,2) 
2170 PRINT" ":RETURN 


LOCATEINT(P(W,1)/8),P(W,2) 
PRINTCHR$(201):RETURN 
FORN=1T04 
LOCATEINT(P(N,1)/8),P(N,2) 
PRINTCHR$(201):NEXTN 

RETURN 

REM LAS-VEGAS 

GOSUB1540 
LOCATE0O,22:PRINT"Punteggio max."; 
INPUTLI 
LOCATE0O,22:PRINTSTRING$(28," ") 
IFLI>4000RLI<4YO0THEN2250 
UA=5:GOSUB1500:IFLI>200THENUA=10 
LOGATE5,0:PRINT"1" 
LOCATE11,0:PRINT"2" 
LOCATE17,0:PRINT"3" 
LOCATE23,0:PRINT"4" 
LOCATEO,1:PRINT"{30A87}"; 
LOCATEO,10:PRINT"{30A87}"; 
LOCATEO,7:PRINT"{30A87}"; 
KI=0 

KI=KI+UA 

PE=1 

FORN=1T04:LOCATEN*6-2,3 
PRINTP(N,1):NEXTN 
LOCATE18,13:PRINT"Giocatore" 
LOCATE20,15:PRINTPE 
GOSUB2480:IFP(PE,1)>LITHEN2640 
PE=PE+1:IFPE>PLTHEN2390 
GOTO2410 

A$=INKEY$ 

IFA$=""THEN2480 
LOCATEO,8:PRINT"Il piatto e' a";KI 
GOSUB2080 

GOSUB1230 
IFD1=1ANDD2=1THENGOSUB2560 
IFD1=D2ANDD1<>1THENGOSUB2600 
RETURN 

PLAY"OUYA64YB6UYC6OY" 
P(PE,1)=P(PE,1)+KI*2 

KI=0 

RETURN 

PLAY"O4G64E64D64" 
P(PE,1)=P(PE,1)+KI 

KI=0 

RETURN 

WI=PE 

GOT02020 

REM SEVEN-ELEVEN 

GOSUB1540 

LOCATE5,0:PRINT"1" 
LOCATE11,0:PRINT"2" 
LOCATE17,0:PRINT"3" 
LOCATE23,0:PRINT"4" 
LOCATEO,1:PRINT"{30A92}"; 


2730 
2740 
2750 
2760 
2TI0 
2780 
2790 
2800 
2810 
2820 
2830 
Wi 

2840 
2850 
2860 


LOCATEO,10:PRINT"{30A92}"; 
LOCATEO,7:PRINT"{30A92}"; 
FORN=1T04 

P(N,1)=100 

NEXTN 

FORW=1TOPL 

FORN=1T0O4 
LOCATEN*6-2,3:PRINTP(N,1) 
NEXTN 

IFP(W,1)<1THEN2990 
LOCATEO,22:PRINT"Puntata giocatore "; 


INPUTB$ 
LOCATEO,22:PRINTSTRING$(26," ") 
BE=VAL(B$):IFBE<10RBE>P(W,1)THENPLAY" 


04A464":GOT02830 


2870 
2880 
2890 
2900 
2910 
2920 
n 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3100 
3120 
3130 
3140 


3150 
3160 
3170 
3180 


3190 
3200 
3210 
3220 


.GOSUB2080:GOSUB1230 


T=D1+D2 

IFT=7ORT=11THEN3130 
IFT=20RT=30RT=12THEN3170 

PO=T i 

LOCATEO,8:PRINT"Tira ancora. . . . 


A$=INKEY$:IFA$=""THEN2930 

GOSUB2080:GOSUB1230 

T=D1+D2 

IFT=POTHEN3130 

IFT=7THEN3170 

GOTO2990 

NEXTW 

FL=0:C0=0 

FORN-1TOPL 

IFCO=1THEN3050 

IFP(N,1)>OANDFL=1THENCO=1 

IFP(N,1)>OTHENFL=1 

NEXTN 

IFCO=1THEN2780 

WI=0 

FORN=1TOPL 
IFWI<>OTHEN3110 
IFP(N,1)>OTHENWI=N 

NEXTN 

GOTO2020 
PLAY"04G64F64E64" 

LOCATE 0,8:PRINT" Hai vinto !! 
n 

P(W,1)=P(W,1)+BE 

GOTO2990 

PLAY"O4YE64G64" 

LOCATE 0,8:PRINT" Hai perso !! 
n" 

P(W,1)=P(W,1)-BE 

GOTO2990 

REM DEF. SPRITES E CARATTERI 

RESTORE3330 


R9 


mero nullo e quindi deve es- 
sere ripetuto un secondo 
lancio: se la somma dei dadi 
del secondo tiro è uguale a 
quella del primo si vince, al- 
trimenti la scommessa ver- 
rà incassata dal computer. 
L'eventuale risultato di 7 del 
secondo tiro fa comunque 
perdere. 


Tratto dall'archivio 
della Jackson 


3230 FORS=1T014:S$(S)="" 

3240 FORDD=1T032 

3250 READDA:S$(S)=S$(S)+CHR$(DA) 

3260 NEXTDD:-SPRITE$(S)=S$(S) 

3270 NEXTS 

3280 FORCH=200T0202 

3290 FORDD=0T07 

3300 READDA:VPOKECH*8+DD,DA 

3310 NEXTDD:NEXTCH 

3320 RETURN 

3330 DATA 31,32,64,255,128,128,128,128,130 

s ti20, 287128, 128,128, 295,0 

3340 DATA 255,3,5,249,9,9,9,9,9,9,9,9,10,1 

2,248,0 

3350 DATA 31,32,063,255,128,144,128,128,128 

+ 126,128,126,128,128,255,0 

3360 DATA 255,3,5,;289,9,9,9;9,959,9x73:10, 

272880 

3370 DATA 31,32,64,255,128,144,128,128,130 

,128,128,128,128,128,255,0 ì 

3380 DATA _255,3,5,219,9,9r9x9,9,99 73.106 

12,248,0 

3390 DATA 31,32,64,255,128,144,128,128,128 

1128, 128,144, 128,128,255,0 

3400 DATA 255,3,5,249,9,13,9,9,9,9,9,73,10 

«l2,048,0 

3410 DATA 31,32,64,255,128,144,128,128,130 

s128,128,144,128,128,255,;0 

3420 DATA 255,3,5,249,9,73,9,9,9;9,9,73:10 

12:28:80 

3430 DATA 31,32,64,255,128,144,128,128,144 

si28, 128,1%4,128,128,255,0 | 

3850 DATA 255,315,289,9,173:949,73:993 1351 

DI 2U8,0 

3450 DATA 0,0,0 i RP pe IR 

(6,00 2,8, 12,131, 128,128 

,128 

3460 DATA 0,0, 0,0,0,224,28 

13,0,0,0,0,0,0 0,0 

3470 DATA 32,3 32,33,17,18 

si8105A 074 28,128,128, 

0,010. ,;0)5:0;;,0.;:25 

34.80 DATA 0, 

0,1 92.,.878, 

3490 DATA 0 

0300015 

3500 DATA 0 

; PIE DIR Geo 
1 
0 
0 


O\e 


o + NON DO» 


3510 DATA 
0,0,0,0,0, 
3520 DATA 
s0,128.,128,6 
28,0,0,0 i 
3530 DATA 0,124,198,198,198,108,238,0 
3540 DATA 17,7,13,120,204,204,204,120 
3550 DATA 24,24,24,24,24,24,24,24 


y 
{ 


ON EON-0-0 


© ss see No 


0 
, 
0 
6 
0 
0 
î 
0 
0 
y 


COSTRUISCI LA PRIMA BIBLIOTECA COMPLETA 
DI INFORMATICA PERSONALE 


Volume per volume, settimana per settimana, tutti gli argomenti 
dell’informatica personale: da cosa significa ‘‘vivere col computer” al BASIC; 

dal COBOL al PASCAL e ai più diffusi linguaggi e sistemi operativi (MS- DOS. CP/M, MSX ...) 
Dall’hardware al software. dalla programmazione dei personal computer all’utilizzo dei più 
affermati pacchetti software: Multiplan, Visicatc, Lotus 1-2- 3, Symphony dBase Il, Wordstar ... 


la sua avventura nel 
mondo dei computer 
e ha bisogno di una 
guida sicura per 
costruire le basi della 
sua conoscenza ed 
esperienza. 


per ragioni di studio, 
hobby, lavoro, 

precise tematiche di 
fg software, di hardware 
Al. e di programmazione. 


| QUADERNI JACKSON 


Una Biblioteca di agili 
monografie, rivolta ad un 
vastissimo pubblico: 
appassionati, professionisti, 
studenti e tecnici. 

30 Volumi pratici redatti con uno 
stile chiaro, competente, accurato 
ed essenziale. 


per esigenze professionali 
o culturali, un'organica 
Biblioteca di testi di base, 
scritti da esperti qualificati, 
coerente con un disegno 
editoriale di ampio respiro. 


\ GRUPPO EDITORIALE 
JACKSON 


DIVISIONE LIBRI 


